<!--#include file="Ini.asp"-->
<!--#include file="FazData.asp" -->
<!--#include file="../AspLib/Functions.asp"-->



<% = sHEAD %>
<% = sBODY %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open sCo1, sCo2, sCo3
conn.CommandTimeout = 1500
%>

<%
	sID = TRIM(REQUEST("ID"))
	
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open sCo1, sCo2, sCo3

	sSql = "SET DATEFORMAT MDY Select CODCOMUNICADO, TITULO, RESUMO, DTINICIO, ARQUIVO From COMUNICADOS Where CODCOMUNICADO = " & sID
	Set rs = Conn.Execute(sSql)

    %>
  <h1>AVISOS</h1>
  
    <div id="content">
      <div id="aviso">
      
      <%
	  IF NOT RS.EOF THEN
	    sID = TRIM(RS("CODCOMUNICADO"))
		sTITULO = TRIM(RS("TITULO"))
		sRESUMO = TRIM(RS("RESUMO"))
		sDTINICIO = TRIM(RS("DTINICIO"))
		IF ISDATE(sDTINICIO) THEN
		  sDTINICIO = DireitizaString(DAY(sDTINICIO),2,"0") & "/" & DireitizaString(MONTH(sDTINICIO),2,"0") & "/" & YEAR(sDTINICIO)
		END IF
		sIMG = TRIM(RS("ARQUIVO"))

                sMOVIMENTADO =  MONTH(NOW) & "/" & DAY(NOW) & "/" & YEAR(NOW) & " " & HOUR(NOW) & ":" & MINUTE(NOW) & ":" & SECOND(NOW)
                SIP=request.servervariables("remote_addr")
           ssql="SET DATEFORMAT MDY INSERT INTO ACESSOLOG(FORM,DIGITADOR,NIVEL,ORIGEM,DATA,IP)" &_
                " VALUES('" & MID(sTITULO,1,50) & "','" & Session("Usuario") & "','" & Session("Nivel") & "','I','" & sMOVIMENTADO & "','" & SIP & "')"
           Conn.Execute(ssql)

		%>
		<div id="content">
		  
		  <h2><%= sTITULO %></h2>
		  <%
          IF sIMG <> "" AND ISNULL(sIMG) = FALSE THEN
			%>
			<img style="float:left" src="<% = pasta_imagem_aviso & sIMG %>" width="100" height="100" alt=""/>
			<%
		  END IF
		  %>
          <%= sRESUMO %>
		</div>
      <%
	  END IF
	  %>
                  
      </div>
    </div>
</body>
</html>